home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 #3
/
Floppy_Magazine_88-3_1988_Megasystems_Oy_fi_Side_B.d64
/
interdoodle 1.81
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
776b
|
18 lines
50 poke53280,1:poke53281,1:poke53265,peek(53265)and239:print"[147]"
60 ifa=0thena=1:loadchr$(160)+chr$(1)+"*",8,1
70 ifa=1thena=2:loadchr$(160)+chr$(2)+"*",8,1
80 poke53265,peek(53265)or16:poke56576,peek(56576)and252:poke53272,29:poke648,196
100 print"[147][161] [146] ";
110 print"[161] [201]nter[196]oodle v1.81 mtx soft [144][146][161]";
120 print"[161] [144][146][161]";
130 print"[144] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
140 print" [201]nter[196]oodle v1.81 copyright 1987"
145 printtab(11)"by [205]atti [212]ukiainen"
150 print"[154] [201]f you want the newest version of"
160 print" [201]nter[196]oodle or you have something to"
165 printtab(6)"ask, please write. [205][212][216] soft,"
170 printtab(3)"[212]ehtaant 14, [211][198]-33430 [214]uorentausta"
180 print"[205]any thanks to my friends [198]ilo and [206]ils-";
190 print" [193]slak for their help and assistance."
200 ifa=2thenloadchr$(160)+chr$(3)+"*",8